ocr: Formi Object (General) Proc (declarations) Dim tem Cels, tem Fahr As Variant Private Sub txtCels KeyPress (KeyAscii As Integer) If (KeyAscii = 13) Then tem Cels = Val(txtcels.Text) tem Fahr = 9/5 * tem Cels + 32 txtFahr.Text = tem Fahr End If End Sub Private Sub txtFahr KeyPress (KeyAscii As Integer) If (KeyAscii = 13) Then tem Fahr = Val (txtFahr.Text) tem Cels = (tem Fahr - 32). *519 txtCels.Text = tem Cels - End If End Sub
